88888 


SSSSS88888 


PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
PPP PPP 


PPP PPP 
PPPPPPPPPPPP 

PPPPPPPPPPPP 
PPPPPPPPPPPP 


AOMAAAOIOAOAIOOOONY 
AOMVOOAOOOAIAIAIOOOOY 
AOAOAOOAQAAIOAOOOOONY 


000000000 

000000000 

000000000 
000 


000 
000000000 
000060000 
000000000 


**F ILE**1D**RQSTMAIN 


LLLLLLLLLL 
LLLLLLLLLL 


ot be 


Dt tn en at nn an a ne bt be ne te 


tema Bent Bea fee Gen feet Pa eee bee Feet es Be 
al aaa 
toe 


ot ome 


ta 
el 
a 
fem as 


—) 
, na 
ee 
— 
baa ba 


ome Ieee Noe Ieee Ben Seen Ieee een ieee Ieee ineee eee een ee) 
AHHH HH Ht tt tt tt 
bt be be Be an ne Bt bs ne Bt Oe Bs 
Ge a as bn ee Be a ee a ee 


| ame 
— 
_— ee 
— 


A IO Oe “ 
11 

OPCSROSTMAIN REQUEST command main module iheSe -1984 01:47:25 AX-11 Bliss-32 V4.0-742 P 1 
Copyright notice 12-8 08-1 98 04:97:82 YOPCOM. SRCIROSTMAIN 85201 ga (1) 


1 MODULE opc$rqstmain ( ZTITLE ‘REQUEST command main module’ %S8TTL ‘Copyright notice’ 

LANGUAGE BL L858 ve 

IDENT = ‘V04- ‘ 

ae = rastmain_main 
= 


Win 


00  chahahahalaiadababababababebabebabebabalalalabalahalalahahehehehededelebebebebebebehebebebelabelelebabaieheialhhsiebebeielalalaialaiaiaiaiaiaiai 
it 
009 '® COPYRIGHT (¢) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
on ALL RIGHTS RESERVED. 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH SUCH LICENSE AND WITH THE 
tt INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


'® TRANSFERRED. 

'® THE INFORMATION IN THIS SOFTWARE IS SUBJE 
AND SHOULD NOT BE CONSTRUED AS A COMM 

!® CORPORATION. 


!t DIGITAL ASSUMES NO RESPONS 
!® SOFTWARE ON EQUIPMENT WHIC 
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00 lee 
003 FACILITY: 
003 
O08 REQUEST command 
H O08 ABSTRACT: 
i sit 44 This module contains the top level logic for the DCL REQUEST command. 
9 Environment: 
0 0040 
One VAX/VMS operating system. 


Author: 

CW Hobbs, macro module REQUEST.MAR used as guide 
Creation date: 

22-Aug-1983 
Revision history: 


v03-003 CWwH3003 
Add 


CW Hobbs ; 18-May-1984 
a. to the check for request pending. 


V03-002 CWH3169 CW Hobbs — 55-May-1984 
Second pass for cluster-wide OPCOM: 
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REQUEST command main module 
Start of rastmain 


64 1 BEGIN 


N11 
1e=Sep-198e $2:50:8¢ — LOpcon. Sac SRastmAtNcs 


ZSBTTL ‘Start of raqstmain' 


1 
065 1 LIBRARY ‘SYSSLIBRARY:L1I8.L32'; 
be8 1 LIBRARY ‘LIBS$:OPCOMLIB'; 
067 1 
068 1 FORWARD ROUTINE 
434 1 rqstma nctrlc ast : NOVALUE, ! Handle control c ast 
83 0 1 rqstmain_init, ! Initializations 
071 1 rqstmain_main, ! Entry point, main routine 
Bnr§ 1 rqstmain_setmode_qio : NOVALUE, ! Set up control ¢ ast 
Booz : rqstmain_wait_reply; ! Wait for reply from opcom 
8 75 1 EXTERNAL ROUTINE 
76 «1 share_lookup_oper_bit, ! Convert text string to operator bit number 
Ae : share_trnlog : NOVALUE; ! Recursively translate a name 
0079 1 LITERAL 
0080 1 mb_buf_siz = 256, 
0081 1 message_buf_siz = 512; 
0082 1 
0083 1 OWN 
0084 1 dvi_terminal_buf : Sbvector Cmax_dev_nam] 
0085 1 dvi_terminal_len, f Length of terminal name 
0086 1 dvi_terminal_ptr : INITIAL (dvi_terminal_buf), 
0087 1 dvi_devchar : Sbblock 41, 
0088 1 dvi_items VECTOR C7, LONG] PRESET ( 
0089 1 COJ = (dvi$_devchar*16 OR 4), 
0090 1 1] = dvi_devchar, 
0091 1 $4 = 0, 
0092 1 J = (dvi$_fulldevnam*16 OR max_dev_nam), 
0095 1 4] = dvi_terminal_buf, 
0094 1 5] = dvi_terminal_len, 
0095 1 6] = 0), 
0096 1 pi_prcnam_buf : Sbvector Cwax_dev_nam], 
0097 1 pi_prcnam_len, 
0098 1 pi_prcnam_ptr : INITIAL (jpi eye buf), 
0099 1 pi_items : VECTOR C4, LONG) PRESET ( 
0100 1 0) = (jpis_prcnan*16 OR max_dev_nam), 
Bi8s : 1] = jetcprenanct f, 
= rcnam_len, 
O108 | EE eaten: 
0104 1 mb_chan, 
0105 1 mb_ios : VECTOR (4, WORD], 
0106 1 mb_buf fer : $bvector fmb_buf‘siz), 
0107 1 tt_chan, 
0108 1 tt_ios : VECTOR C4, WORD], 
0109 1 text : Sdyn_str_desc, 
0110 1 message $bblock ECmessage_buf siz] ! Buffer to build message for sndopr 
gui | message_desc VECTOR C2, LONG) PRESET ((1] = message); 
118 : Define ascii text descriptors once 
115 18 
16 1 ascid_P1 = ZASCID ‘PI', 
Ah 1 ascid_REPLY = ZASCID ° 349 be 
118 #1 asc id_SYSCOMMAND = ZASCID ‘SYSSCOMMAND’, 
0119 1 ascid_TO = ZASCID ‘TO’; 
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v04 rqstmain_ctric_ast 14-Sep-1984 12:50:54 LOPCOM. SRCIROSTMAIN.B325 1 (3) | 
GLOBAL ROUTINE rqstmain_ctric_ast : NOVALUE = ZSBTTL ‘rqstmain_ctric_ast' 


1e4 
Functional description: 


Handle a control c ast from the terminal. 
Input: 


| 
{ 
| 
| 
} 
| 
None. | 
Implicit Input: 

None. | 
Output: | 

None. | 
Implict output: | 

None. | 
Side effects: | 

None. | 
Routine value: 


i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
None. 


BEGIN ! Start of rqstmain ctric_ast 


LOCAL 

prmpt : $bvector (128), 

oes VECTOR C2, LONG] PRESET (CO) = 128, C1) = prmpt), 
status; 


BIND 
buf = (message Copc$t_request_text] + 2 + .dvi_terminal_len) : $bvector; 


. Get the prompt string 


MEWN OO DNAUNEWN $C OODNOAUE WN OO ONAUESWN "OO ONOUS WI 


if NOT (status = $getmsg (msgid=opc$_raqst_prompt, msglen=dsc, bufadr=dsc, flags=0)) 
$signal_stop (.status); 
Get the response from the user, read it into the message right after the terminal name. 
status = Sqiow (efn=1, chan=.tt_chan fung=i9$_readpronpt . iosb=tt_iosb, 

pl=buf, p2=256, p5=.ds¢ [1], p6=.dsce [0J); 
IF .status 
THEN 


status = .tt_iosb [0]; 
IF NOT .status 
THEN 
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rqstmain_ctric_ast 14-Sep-1984 12:50:54 OPCOM.SR MAIN.B32;1 (3 
177 ' $Ssignal_stop (.status); 
If “Z, then cancel the request, otherwise send the message to the operator 
iF .(ttliosb (23) <0,8,0> EQL 2x"1A' 
THEN | 
BEGIN 
message opc $b_ rastcode] = ops$-%5 x cancel; 
message Lopc$ ' 09 efits len o9t 
Tenor desc (0) = Shyfeoffset fenett. request_text); 

norte My : Saxtiee (msgbuf=message_desc, chan=. mb_chan) ) 

g Tey stop (.status); 


ELSE IF .tt_iosb (1) EQL 0 
HEN 


Ooooocccoee 


POPONONOPONONONONY 2 a 


SBSVEAR GNI OSHSIRAR ALO OW IRAP OOD 
SOSGOKOGCOSCOSOSCOOOOOOOOOOWMMMdMOcdocODODC~I~ 


BWNAUEWN $$ O OONAUSWN -OCONOUS WOOO 


PROPIPININPINIAPORINIPNY 2 tt 2 ot ot ot 0 


4 
T 
fr we rqstmain_ctric_ast () ! Try again if no input 
BEGIN 

8 —. . 
0 add = acts + .dvi_terminal_len + .tt_iosb (1]); 
0 message Cope Su, fequest Length) = .add; | 
0 message desc [ Sbyteoffset (opest. request_text) + sede; | 
4 3 vey : $sndopr (msgbuf=message_desc, chan=0)) 
0 3 $signal_stop (.status); | 
3 + mail setmode_qio (); ! Reenable the AST 
0 2 
0 2 RETURN; 
0 1 END; ! End of rqstmain_ctric_ast 


-TITLE OPCSRQSTMAIN REQUEST command main module 
-IDENT \V04-000\ | 


-PSECT $PLITS,NOWRT,NOEXE,2 


00 00 31 50 Q0000 P.AAB: .ASCII \P1\<0><0> : 
010E0002 00004 P.AAA: .LONG 17694722 F 
00000000" 00008 ADDRESS P.AAB ; 
00 00 00 59 4C 50 45 52 O000C P.AAD: ASCII  \REPLY\<0><0><0> ; 
gi8 000 B604 8 P.AAC: .LONG Venere § 
0? 0099" 0018 ADDRESS P.AAD ; 
00 44 4E 41 4D 4D 4F 43 24 53 QOO1C P.AAF: .ASCII \SYS$ enmmaetaaas z 
a 44 00028 P.AAE: .LONG 176947 3 
0000000° 0002C ADDRESS P.AAF 3 
00 00 4F 54 00030 P.AAH: .ASCII \TO\<0><0> : 
BSF Ot P.AAG: .LONG 17694722 : 
00000000" 00038 ADDRESS P.AAH : 


.PSECT SOWNS,NOEXE,2 
00000 DVI_TERMINAL_BUF : 
00040 DVI_TERMINAL_LEN: 
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vos-006 
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rastmain_ctric_ast 


00000000" 


00020004 


00000000" 
03100040 


00000000" 00000000° 
00000000 


0000 

02 0€ 
00000000 
00# 
00000000° 


00 
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p=1984 12:50 


-BLKB 
00044 Dv1 TERMINAL PTR: 


¢? AX-11 BL ALT -32 V 
OPCOM.SRCJR OS TMA! ti wire 1 


4 


ADDRESS DVI_TERMINAL_BUF 
00048 pv -DEVCHAR: ‘ 
0004C DVI_ITEMS: 
.LONG 131076 
050 ADDRESS DVI_DEVCHAR 
905¢ ADDRESS 6VI_TERMINAL_BUF, DVI_TERMINAL_LEN 
0068 JPI_PRCNAM BUF: * 
O00A8 JPI_PRCNAM LEN: 
OOOAC JPI_PRCNAM PTR: 
ADDRESS JPI _PRCNAM_BUF 
000B0 JPI_ITEMS: 
.LONG 52166720 
00084 “ADDRESS JPI_PRCNAM_BUF, JPI_PRCNAM_LEN 
0008C¢ “LONG 0 
000CO MB_CHAN:.BLKB 4 
000C4 MB- 10sB: -BLKB 8 
OOOCC MB“BUFFER 
"BLKB 256 
QO1CC TT_CHAN:.BLKB 4 
001D0 TT” 10SB: “BLKB 8 
00108 T “wORD 0 
001DA “BYTE 14, 2 
001D¢ “LONG 0 
O01EO MESSAGE:.BLKB 512 
OO3E0 MESSAGE_DESC: 
.BYTE 04] 
003E4 [ADDRESS MESSAGE 
ASCID_P1= P.AAA 
ASCID-REPLY= P. AAC 
ASCID“SYSCOMMAND= P.AAE 
ASCID~TO= P- AAG 
.EXTRN SHARE _LOOKUP_OPER_BIT 
“EXTRN SHARE TRNLOG, SYSSGETMSG 
“EXTRN LIBS $STOP SY$$al 
EXTRN SYS$8N 
PSECT $CODE$,NOWRT,2 
00000 .ENTRY RQSTMAIN_CTRLC_AST, Save R2,R3,R4,R5 
9002 MOVAB SYSS$SNDOPR, RS~ 
000 MOVAB ME AGE Degen R4 
000 MOVAB -132(SPJ, S 
001 MOVZBL # s¢ 
001 MOV PRMPT DSCe4 
O01¢ MOV MESSAGE 
0021 ADDL2 OVI APE iNAL Re EN, R2 
00 6 CLRO. = (SP) 
0 PUSHAB DSC 
00028 PUSHAB DSC 


Page 


fr 


an 


; Routine Size: 209 bytes, Routine Base: S$ CODES + 0000 
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v04 rastmain_ctric_ast 1228687138 93380: 82 OPCOM. SRCIROSTMAIN. 83251 . (3) | 

00058288 8F DD PUSHL #361147 ; : 

000000006 5 F F CALLS ne SYSSGETMSG : | : 

: D B MOVL RO, STATUS : | ; 

E BLBC = STATUS, 1$ ; | : 

6— DD g 4 PUSHL DSC + 0171) : 

08 AE DD 0004 PUSHL DSC+4 : | ; 

7E 7C 0 ug CLROQ = SP) : | ; 

7E 0100 F C 4 MOVZWL #256, -(SP) : $ 

2 bp 0040 PUSHL R : | ; 

— 7¢ O04 CLRQ. (SP) : ; 

FOFO £4 9F 005) PUSHAB TT 10SB ' | : 

7 0D 00 3 PUSHL : : 

FDEC C4 DD 097 PUSHL TT_CHAN : ; 

000000006 99 Q FB 008D CALLS #12, SYS$QI10W : ; 

5 50 DO 00064 MOVL STATUS : ; 

&7 53 £9 00067 BLBC STATUS, 4$ + 0172 ; 

53 FDFO g% C 0006A MOVZWi TT_IOSB, STATUS : 0174 3 

iF 3 £9 0006F BLBC STATUS, 4$ + 0175 ; 

1A FDFS £4 91 00078 CHB T1_1088+4, #26 : 0181 : 

FEOO §3 C4 0 90 00079 MOVB #14, MESSAGE + 0184 : 

FEIA C4 B4& 0007 CLRW MESSAGE +26 > 0185 ; 

64 iC DO 0008 MOVL #28, MESSAGE_DESC + 0186 ; 

FCEO ci DD 0008 PUSHL MB_CHAN : 0187 ; 

4 DD 00089 PUSHL 4 : ; 

65 9¢ FB 00088 CALLS #2, SYSSSNDOPR : b 

53 50 DO O008E MOVL RO, STATUS : : 

2D 53 £9 00091 1$: BLBC STATUS, 4$ : ; 

04 00094 RET + 0189 ; 

52 FDF2 cs 3¢ 90095 2$: MOVZWL 11_108B+2, R2 + 0191 ; 

FFSF CF 00 fe 4 44 5 a #0, ROSTMAIN_CTRLC_AST : 0193 : 

50 52 FC60 £4 ci 000A2 3$: ADDL 3 DVI TERMINAL LEN, R2, RO : 0198 : 

FEIA C4 4 80 000AB MOVW ADD, MESSAGE+26 > 0199 ; 

64 1¢ AO 9E 90080 MOVAB 28(RO), MESSAGE_DESC : 0200 : 

7E 04 000B4 CLRL = = (SP) : 0201 : 

54 DD 00086 PUSHL  R4 : ; 

65 02 FB 000B8 CALLS #2, SYSSSNDOPR F : 

53 50 00 00088 MOVL RO, STATUS : : 

OA 53 £8 OOOBE BLBS STATUS, 5$ : ; 

53 DD oc] 4$: PUSHL STATUS + 0203 ; 

000000006 00 01 FB O0¢ CALLS #1, LIBSSTOP ; : 

0000v CF 00 FB 008 5$: CALLS #0, ROSTMAIN_SETMODE_QI0 > 0204 | ; 

04 0000 RET : 0208 ; 
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rastmain_init routine 1e=808-13e 93:85:82 OPCOM. SRC JRQSTMAIN.B32;1 = (4). vo 
18 GLOBAL ROUTINE rastmain_init = USBTITL ‘rastmain_init routine’ | 
1 ee | 


i Functional descri¢tion: 
This is the initialization routine for REQUEST. Various common initializations are done. 
Input: | 
None. | 
Implicit Input: 


st 


WO OONOA NEW 3 0 DOONAN WIN 8 OD NO UE WIN @ 0 OD NOU EWN "OO OONO UE Ww 


Command values from CLI routines. 
Output: 
None. 
Implict output: 
None. 
Side effects: 
None. 
Routine value: 


None. 
BEGIN ! Start of rqstmain_init 
LOCAL 
status; 


MUMNOPoROPoTPofPonfnorornys 


| 
Initialize the message 
! NOTE: We are using an internal interface to OPCOM which is subject to change! | 

| 


CHSFILL (0, gpesk request min size. message); ! Init all fixed fields to zero 
message Copc$b_rastcode = opc$_x_request; 
message Copc$b_scope = opcSk_System; 


Do a SGETJPI to get information about the current process 
if NOT (status = Sgetjpi (itmlst=jpi_items)) 
Ssignal_stop (.status); 


PAA 
OOnNOW 


Do a SGETDVI to get the name of the command terminal. 
if NOT (status = Sgetdvi (devnam=ascid_SYSCOMMAND, itmlst=dvi_items)) 
$signal_stop (.status); 


ROPIPIPOPOPPOPONPoNNoNoNofnofnony» 
Oe ae en yaae ob ya) at at ot at ot te 
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9052090 rastmain_ qnit routine 1 gep-1986 9 $0382 OPCOM.SR RCIRO ROSTMAI N.B32;1 niet 3 
$8 $6 H If sys$command is a terminal, assign a channel 
71 és if .dvi_devchar (dev$v_trm] 
7 § THEN 
7 9 BEGIN 
f 4 wor (status = Sassign (devnam=dvi_terminal_len, chan=tt_chan)) 
7 7 Ssignal_stop (. ); 
r 7 } signal_stop (.status 
7 g ; If sysScommand is not a terminal, then substitute the process name for the terminal name 
ei 7 ELSE 
g 7 BEGIN 
o 0 dvi_terminal_len = +49} -prenan_ ten: 
Be dvi_terminal_ptr = .jpi_prcnam_ptr; 
8 


! If /TO is requested, then set the attention bitmask to those operators 
if cliSget_velue (ascid_TO, text) 
BEGIN 


Sbblock Cmessage Copc$l_attnmask1], 0, share_lookup_oper_bit (text), 1, 0] = 1 
NOT cli$get_value (ascid_TO, text); 


| 


message Copc$l_attnmask1] = known_attn_mask1; 
peseage opc$l_attnmask2] = known_attn ~mask2: 


; If /REPLY is requested, create a mailbox 
if cli$present (ascid_REPLY) 
THEN 


BEGIN 
Mog (status = Scrembx (chan=mb_chan, maxmsg=mb_buf_siz, bufquo=2*mb_buf_siz, promsk=%X'FF*)) 


$signal_stop (.status); 
: END; 


i Move the terminal (process) name and reply text, if any 


cli$get value (ascid_Pl, text); ! Get the parameter, null is fine 
CHSCOPY™ (dvi oraings ={i458 dvi terminal _p 
39 UPLIT BYT me P .text tdscSe ‘tength], -text Cdsc$a sPeinterd. 
message_buf Sale yt téof feet fe c$t- request Rie 2" message ope $t_ hag text); 
message Copesue réquest_length etext CdscSw_ on th + .dvi_terminal”len; 
message_desc (0) = .meSsage Cope $w request_length ' Set total Lengt 
yteoffset (opc$t_ request. Seats 


eee ee SSPE SPREE ET 
SS SsS san n SSeS OPORTO Sa ESR OR SSENE OP 


SOOSSOSOOCOCOOOOCOOOOCOOOCOCOOOOOOOOOCOoOOOSOoCOooO 


RETURN .status; 
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e+ Sa 
v06 rqstmain_init routine p-19 
; 326 0323 1 END; 
20 2C O0003C P.AAI: 
OFFC 00000 
nt ae O00 
oa ae ne 2 Ba 
Q1A0 «OCCA 010C 4 0 FN 
7E 04 00010 
70 AA YF OOOTF 
7E 7C 00022 
7E D4 00024 
000000006 3 4 88 . 
3 9 €9 000350 
—E 7C 000 2 
7E 7C 000 
OC AA OF + 7 
F4 AB 9F QOO3A 
4 7C 00039 
oerean a} op Anne 
1A 59 €9 00049 
17 08 AA de 4 004C 
E 7C 00051 
018C gh 9F 000 ; 
A 0D 000 
000000006 99 98 fe BRR 
g a3 FF Bases 
2 re 1$: 
6A 68 AA 7D 000 $3: 
0198 cA +4 B28 $: 
000000006 9 03 43 7 
0198 & ef 7C 4$: 
goons CF i 4 
1AA OCA 0 3 8 
0198 gh 4 e 5$: 
F 1 
weet: ? 0 £9 $ 98 


Be 92:30:84 
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! End of rqstmain_init 


SPLIT$,NOWRT,NOEXE,2 

‘. % 

SYSS$GETJPI, SYSS$GETDVI 

SYSSASSIGN, CLISGET VALUE 

CLISPRESENT, SYSSCREMBX 

SCODES,NOWRT,2 

ROSTMAIN_INIT, Save R2,R3,R4,R5,R6,R7,R8,- 
R10,RT1 

ASCID fO, R11 

DVI_TERMINAL_LEN, R10 

#0,~(SP), #0, #28, MESSAGE 

#268, MESSAGE 

=(SP§ 


-(SP) 

JFI_ITEMS 

-(SP) 

-(SP) 

#7, SYSSGETUPI 
RO, STATUS 
STATUS, 1$ 

=(SP) 

DVI_ITEMS 
ASCTD_SYSCOMMAND 
#8, SYSSGETDVI 
RO, STATUS 
STATUS, 1$ 

#2, DVI_DEVCHAR, 2$ 
-(§P) 

R 

#4, SYSSASSIGN 
RO, STATUS 


US, 3$ 
JPI_PRCNAM_LEN, DVI_TERMINAL_LEN 
TEXT 


BD ¢ ISGET_VALUE 
45 3 —_ 


TEXT 
Hie SHARE LOOKUP _OPER_BIT 
RO, RESSAGE+10, 5$ 


R11 
‘5° Gi 1S6ET VALUE 


Sete Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Ge Se Fe Ge Fe Se Ge Se Se Ge Sse Se Fe Ge Ge Be Se Be Be Se Be Be Se Se Be Se Be Be 
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; Routine Size: 325 bytes, Routine Base: S$CODE$ + 00D1 
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OPCSROSTMAIN REQUEST command main module 14-38 -1 7:47:25 AX-11 Bliss-32 V4.0-742 Pa 11) 

vOL-000 rqstmain init routine 102300- 1984 93:30:82 OPCOM. SRCIROSTMAIN.8325 1 wt (4). vc 
F 11 00098 BRB 4$ : : 

O1AA ss CA._“COOF FF AFF BF DO 00090 6$: MOVL $#16773631, MESSAGE+10 ; a ; 

O1Ag CA p4 Ab CLRL  MESSAGE+14 + 0299 : 

fa AB F OOOAA 7$: PUSHAB ASCID REPLY : : 

000000006 00 FB AD CALLS #1, gol PRESENT : ; 

D 0 f B4 BLBC —E—saRO : | ; 

— ?¢C 00087 CLRO 0—._ = §P) + 0307. ; 

7E FF 6OBF OSA 089 MOVZBL ae 5, =(SP) : | ; 

7E 200 F 3C 0008 MOVZ2WL # 12, -(SP) : | : 

7E 10 F %3C 000C MOV2WL #256. -(SP) : | F 

080 cA F 000¢ PUSHAB MB_CH : | ; 

5 D4 000CB CLRL = : ; 

000000006 99 F CD CALLS #7, SYSSCREMBX : : 

9 0 D D4 MOVL RO, STATUS : ; 

OA 9 € 9007 BLBS STATUS, 9$ : ; 

9 DD OO0DA 8$: PUSHL STATUS : 0309 ; 

000000006 00 01 £8 O00D¢ CALLS #1, LIBSSTOP : | 

0198 CA oF O0E4 9S: PUSHAB + 0314 : 

D0 AB 9F OO0ES PUSHAB ASCID_P1 : ; 

000000006 99 02 FB Bade CALLS #2, CCISGET_VALUE : $ 

0198 CA 3 OOF MOVZWL TEXT, R : 0316 ; 

57 0164 8F 3C O00F MOVZWL #484. R : 0317 ; 

56 018C CA 9E O00FC MOVAB MESSAGE+28, R6 : ; 

57 09 06 BA 6A 2C 00101 MOVCS DVI_TERMINAL_LEN, @DVI_TERMINAL_PTR, #0, - ; ; 
66 00107 R7,~ (R6) : : 

1D 18 00108 eGEQ ~=s«*10 : | : 

56 6A CO 0010A ADDL2 DVI_TERMINAL_LEN, R6 : | ; 

57 6A C2 9010p SUBL VI-TERMINAL-LEN, R : ; 

57 00 08 AB 02 2C 00110 MOVCS #2,7P.AAI, #0, R?, (RO) : ; 
£6 00116 : : 

0€ 18 0011 BGEQ 108 : ; 

56 02 CO 00119 ADDL2 #2, R6 : : 

g 9 C2 go11¢ SUBL? #9. R? 4 | : 

57 00 019¢ DA 38 C OO1F MOVCS RB, @TEXT+4, #0, R7, (R6) : 3 
50 0198 CA 3C 00127 10$: §§ MOVZWL TEXT, RO : 0318 F 

50 6A CO 001 C ADDL Dy I_ TERMINAL LEN, RO : : 

O1BA CA 50 02 Al OO12F ADDW3 #2,7RO, MESSAGE+26 ; : 

O3A0 «CA O1BA «CA O3C 01 5 MOVZWL MESSAGE+26, MESSAGE_DESC : 0319 ; 

O3A0 CA ic CO 0013¢ ADDL2 #28, MESSAGE_DESC ; : 

50 59 00 90141 MOVL STATUS, RO : 032 : 

04 00144 RET : 032 3 


4 


DONA VEWN "OO OBNOU SW —0O”0 


PAPAIN & 


UENO OONAUES WN (0 ODNA UE WN OO OONOUE WN "OOOO 


Wnr—O0O® 
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- — 
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OPCSRGSTMAIN REQUEST nd mai b- - 247: - - -0- 
v04 rastasin mein waa 3¢P 198 93:80:82 OPcOF Baca SfmkiN Boos _ (8 


OPCOM. SRC JRQSTMAIN.B32;1 
ZSBTTL ‘raqstmain_main routine’ 


-Sep-1 
GLOBAL ROUTINE rqstmain_main = 


'e4 
: Functional description: 
This is the main routine for REQUEST. When REQUEST is started, control is transfered here. 
Input: 
None. 
Implicit Input: 
None. 
Output: 
None. 
Implict output: 
None. 
Side effects: 
None. 
Routine value: 
None. 


i 
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i 
i 
i 
i 
] 
; 
i 
i 
i 
i 
i 
i 
] 
i 
i 
i 
i 
i 
i 
i 
loo 
BEGIN ! Start of rqstmain_main 


LOCAL 
status; 


Perform common initializations 

rastmain_init 0; 

: Send the message to OPCOM 

IF NOT (status = $sndopr (msgbuf=message_desc, chan=.mb_chan)) 
$signal_stop (.status); 

If we are expecting a reply, then wait for it 

IF .mb_chan NEQ 0 

THEN 


status = rqstmain_wait_reply () 
-Status NEQ 0; 
RETURN .status; 
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K 12 


OPCSROSTMAIN REQUEST command main module g=3e0° 4 5 AX-11 Bliss-32 V4 
705-000 raqstmain_main routine 7-338- 1382 93: 35: §2 OPCOM. SRCTROSTMAL 
; 385 0381 1 END; ! End of rqastmain_main 
0000 eENTRY RQSTMAIN_MAIN, Save nothin 
FEBG «=sCCF 00 FB ALLS #0, RQST TRAIN INIT . 
4 CF pp PUSHL MB_ CHAN 
00° F F PUSHAB MESSAGE_DESC 
000000006 00 $ FB OOO00F CALLS #2, SYSSSNDOPR 
1 D b8i8 MOVL RO, STATUS 
A 1 £8 0001 BLBS STATUS, 1$ 
51 DD OOOIC PUSHL US 
00000000G 00 01 fe Oo0z8 gays #1, LIBSSTOP 
0000" CF 0 0026 1$ TSTL MB_CHAN 
on 1 44 A BEQL $ 
0000v CF 0 FB 0002C zs CALLS #0, ROSTMAIN_WAIT_REPLY 
51 50 9 00031 MOVL RO, STATUS 
F6 13 00034 BEQL 
50 51 DO 00036 3$ MOVL STATUS, RO 
04 00039 RET 


; Routine Size: 58 bytes, Routine Base: S$CODE$ + 0216 


Passes 
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OPCSROSTMAIN REQUEST command main module 18-Sep-19 4 01:67: 8 AX-11 Bliss-32 V4.0-742 Page 14 
v04 rastmain_setmode_qio 14-Sep-1984 12:50:54 OPCOM.SRCJROSTMAIN.B32;1 (6) 
H 7 § ! GLOBAL ROUTINE rqstmain_setmode_qio : NOVALUE = ZSBTTL ‘rastmain_setmode_qio' : 
: 89 1 144 3 
; is! 5 : ; Functional description: : 
3 36 1! This routine enables a control ¢ ast ‘ 
ae Sti ‘ 
> 394 1! Input: ; 
a. Bi We ; 
: ne. 3 
si ee £8 Al lee ioe : 
3 ! Implic nput: : 
; 35 0 9% 1! ° 
: 400 ve 3 | None. ‘ 
: 401 38 1! : 
; 40 97 1! Output: : 
; 40 $05 1! : 
; 404 0399 1! None. : 
; 405 0400 1! : 
: 406 0401 1 ! Implict output: 16 
; 407 pene 1! 
; 408 4035 1! None. 
; 409 0404 1! 
; 410 405 1 ! Side effects: 
; 411 406 1! 
3 tig 0407 1! None. 
3: (41 0408 1! 
> 414 0409 1 ! Routine value: 
>; 415 0410 1! 
; 416 bei} 1} None. 
3 417 tig 1 !<- 
: 418 0413 1 ; 
3; 419 0414 2 BEGIN ! Start of rqstmain_setmode_qio 
3 rk 0415 
; 421 geig LOCAL 
3 438 net status; 
: 424 6619 S$qiow (efn=0, chan=.tt_chan, func=(io$_setmode OR io$m_ctricast), pl=rqstmain_ctric_ast); 
; 636 3 ? $signal (opc$_oprnotif, 1, 6); 
: 4 $ 04 : RETURN; ! End of rastmain_setmode_qio 
; 428 04 1 END; 


Be Se Be Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Seis FH Se Se Se Se Ge Fe Se Ge Ge Se Se Se eee Be se 


0000 6008 ENTRY RQSTMAIN_SETMODE_Q10, Save nothing 3 0783 

7E C 0000 CLRQ -(SP) 3; 041 
7E 7C 000 CLRQ -(SP) : 
7E 4 $8 CLRL -(SP) ; 
FDAS cr F 0000 PUSHAB RQSTMAIN_CTRLC_AST : 
E 7C 00 a4 CLRO -(SP) 3 
7E Be CLRL 338. ; 
7E 0123 8F 3C 1 MOVZWL #291, -(SP) 3 
0000' cr dD 1 PUSHL TT_CHAN : 
E 04 0001 CLRL -(SP) - 


[i 


OPE SAAS TRAIN 


3; Routine Size: 


REQUEST command main module 
rqstmain_setmode_qio 


000000006 90 
E 
000000006 00 


51 bytes, Routine Base: 


00058089 


ontnownn 
swoow 


SCODES + 0250 


1B-deor}gee 1:47:25 yards at 


#12, SYS$QI10W 
#1, =(SP) 


‘i 058 
#3, LIBSSIGNAL 


CSRastmAtiveses1 
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N 12 
REQUEST command main module 16-Sep-1984 01:47:25 
rastmain_wait_reply routine 137380- 1386 93:80:82 


GLOBAL ROUTINE rqstmain_wait_reply = 


44 


So NO 
PRORSPOPOPONONOROPONINONUNOPONYUNINOPONINUNIPONNYDYD 2 2 0 
- . 


B 
L 
' 


Functional description: 


This routines waits for a reply from OPCOM 


i Input: 


None. 


i Implicit Input: 


None. 


i Output: 


None. 


i Implict output: 


None. 


i Side effects: 


None. 


i Routine value: 


None. 


EGIN 


AL 
status; 
Enable the ast on control c 


rastmain_setmode_qio Q); 
: Read from the mailbox 


ips = Sqiow (efn=2, chan=.mb_chan, func=io$_readvblk, iosb=mb_iosb, pl=mb_buffer, p2=mb_buf_siz); 
THE 


pe 
status = .mb_iosb (0); 


IF NOT Status 
THEN 


"estore; stop (.status); 


Display the mailbox message on the terminal 
$signal (opc$_opreply, 2, .mb_iosb [1]-8, mb_buffer (8)); 
If the code is RQSTPEND, then we should continue, return 0 so the outer routine will loop 


ROSTMAIN. wir 1 
ZSBTTL ‘rqstmain_wait_reply routine’ 
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! Start of rqstmain_wait_reply 


S 
ie 


13 
CSROSTMAIN REQUEST command main module 16-5 -1984 47:25 Ax-11 BLi 2 V4.0-74 e 7 
608 tne > 4 03:30:82 cor + cast (4 


-3 
rqastmain_wait_reply rout 14-Sep-19 OPCOM.SRCJRQSTMAIN.B32;1 


v04 
: cag re 1 IF .(mb buffer (2]) <0,16,0> EQL (opc$_raqstpend AND %xX'FFFF") 
; 489 4 5 RETURN 0; 
; $90 484 : 
; 491 0485 ! Request is done, force OPCOM facility code back into the high word and return the 
; Pe % § ; status from the reply 
> 494 488 2 (mb buffer [4]) <0,16,0> = sts$m_inhib_msg*=16 OR opc$_ facility; 
; 495 489 RETORN .(mb_buffer (349? 4 _— Si reesois vis 
: 696 0490 
; 497 0491 END; ! End of rqstmain_wait_reply | 
} 
} 
0004 00000 .ENTRY RQSTMAIN WAIT_REPLY, Save R2 : sal 
52 0000' CF 9E 00002 MOVAB MB_IOSB,-R2 ~ : | 
C2. AF 00 FB 0000 CALLS #07 ROSTMAIN_SETMODE_QI0 + 0463. 
7E 7C 00008 CLRO 0._ = (§P) + 0467. 
7E 7C 00000 CLRQ = = (SP) : 
7E 0100 8F 3C OOOOF MOVZWL #256, =(SP) : 
08 A2 9F 00014 PUSHAB MB_BUFFER : 
7E 7C 00017 CLRQ 2s = (SP) : | 
52 DD 00019 PUSHL R ; | 
31 DD 0001B PUSHL #49 : 
FC A2 DD 00010 PUSHL MB_CHAN ; 
02 DD 00020 PUSHL # : 
000000006 00 OC FB 00022 CALLS #12, SYS$QIOW ; 
06 50 E9 00039 BLBC STATUS, 1 + 0468 | 
50 62 3¢ 0002C MOVZ2WL MB_IOSB, STATUS : 0470 
OA 50 £8 000¢F BLBS ‘STATUS, > 0471 
50 DD 00032 1$ PUSHL STATUS > 0473 
000000006 00 01 FB 00034 CALLS #1, LIBSSTOP : 
04 00038 RET ; 
10 A2 9F 0003C 2$: PUSHAB MB_BUFFER+8 : 0477 
7E 02 A2 3C 0003F MOVZWL MB~10SB+2, -(SP) ; 
6E 08 C2 00043 SUBL2. #8, (SP) F 
02 DD 00046 PUSHL ; 
00058091 F DD 00048 PUSHL #360593 ; 
000000006 00 04 FB OO04E CALLS #4, LIBSSIGNAL : 
8021 8F OA A2 861 0005 CMPW = MB_BUFFER+2, #32801 ; 6481 | 
0B 13 00058 BEQL F 
0c a2 1005 8F B80 900 MOVW #4101, MB_BUFFER+4 > 0488 
5 OA A2 D0 0006 MOVL §§ MB_BUFFERT2, RO : 0489. 
04 00067 RET : 
50 D4 00068 3$: CLRL = RO ; 
04 0006A RET : 


; Routine Size: 107 bytes, Routine Base: S$CODE$S + 0283 
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: Seamed fines 01:03. 

3 Lines/CPU Min: 173 

3; Lexemes/CPU-Min: 22588 
: 1,2 Used: 137 pages 
; Compilation Complete 
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REQUEST command main module 18-Sep-1984 01:47:25 AX-11 4. ss-32 V 4.08 742 Page 18) 

v04-000 rastmain_wait_reply routine 14-Sep-1984 12:50:54 OPCOM.SRCIR OS IMAL N.B832;1 (8) 
499 0492 3 END | 
500 495 0 ELUDOM ! End of rqstmain : 
-EXTRN LIBSSIGNAL | ; 
; PSECT SUMMARY | 3 
: Name Bytes Attributes | ‘ 
;  SOWNS 1000 NOVEL, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
; SPLITS 2 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; SCODES 750 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ‘ 
| ; 
; Library Statistics | : 
See ee es on ar a | ae = Syabols soooo~ve Pages Processing ; 
3 File Total Loaded Percent Mapped me | ‘ 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 32 0 1000 00:01.9 ; 
; ~$255$DUA28: COPCOM.OBJ JOP PCOMLIB.L32;1 633 19 3 43 00:00.9 | ‘ 
; COMMAND QUALIFIERS : 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZF)/LIS=LIS$:RQSTMAIN/OBJ=OBJ$:RQSTMAIN MSRC$:RQSTMAIN/UPDATE=(ENHS$:RQSTMAIN) : 
; Sizes 750 code + 1062 data bytes : 
un Time 00:17.1 H 
| ; 
| e 
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